Public Class frmQuanBuu
    Private m_TRAM_ID As Integer

    Public Sub New(ByVal TRAM_ID As Integer)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        m_TRAM_ID = TRAM_ID
    End Sub

    Private Sub frmQuanBuu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Chọn ngày max báo cáo
        Dim strSql As String = "SELECT MAX(NGAYBC) FROM QUANBUU WHERE TRAM_ID = " & m_TRAM_ID
        Dim ngayBC As Date = BaseDB.ExecSql_DataValue(strSql)
        dtpNgayBC.Value = ngayBC
    End Sub

    Public Sub KhoiTaoQuanBuu(ByVal ngayBC As Date)
        Dim strSql As String = "SELECT * FROM VIEWS_QUANBU"

    End Sub
End Class